home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / ICON_8 / TESTS / MATH.ICN < prev    next >
Text File  |  1990-03-02  |  344b  |  20 lines
  1. procedure main()
  2.     every i := 1 to 25 do {
  3.     v := 0.25 * i
  4.     wf (v)
  5.     if (v <= 1.0) then
  6.         every wf ((acos | asin) (v))
  7.     else
  8.         every wf ("" | "")
  9.     every wf (atan(v) | atan(v,3))
  10.     every wf ((cos | sin | tan) (v))
  11.     every wf ((sqrt | exp | log) (v))
  12.     wf (log(v,3))
  13.     write ()
  14.     }
  15.     end
  16.  
  17. procedure wf (v)
  18.     writes(left(v,5)," ")
  19.     end
  20.